home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 10
/
The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso
/
PC_SIGCD
/
24
/
7
/
DISK2472.ZIP
/
BOOKIT.BAT
next >
Wrap
DOS Batch File
|
1990-05-06
|
1KB
|
60 lines
@Echo off
Cls
Echo Project "%1" being B O O K E D for comparative Gantt charts.
: This batch file will keep a maximum of 10 backups of project.REF files.
: To see the old files enter "VIEW PLANxx" where xx is 01 to 10.
If .%1 == . Syntax1 %0
Echo ----------------------------------------------------------------------
If exist %1 Syntax2 %0 %1 %2 %3 %4 %5 %6 %7
If not exist %1.PRT Syntax3 %0 %1 %2 %3 %4 %5 %6 %7
If Not Exist %1.REF GoTo Done
If Not Exist Plan01.REF GoTo Set01
If Not Exist Plan02.REF GoTo Set02
If Not Exist Plan03.REF GoTo Set03
If Not Exist Plan04.REF GoTo Set04
If Not Exist Plan05.REF GoTo Set05
If Not Exist Plan06.REF GoTo Set06
If Not Exist Plan07.REF GoTo Set07
If Not Exist Plan08.REF GoTo Set08
If Not Exist Plan09.REF GoTo Set09
If Not Exist Plan10.REF GoTo Set10
Echo All backups are full. Please erases or rename the "PLAN??.REF" files.
GoTo Exit
:Set01
Copy %1.REF Plan01.REF >Nul
GoTo Done
:Set02
Copy %1.REF Plan02.REF >Nul
GoTo Done
:Set03
Copy %1.REF Plan03.REF >Nul
GoTo Done
:Set04
Copy %1.REF Plan04.REF >Nul
GoTo Done
:Set05
Copy %1.REF Plan05.REF >Nul
GoTo Done
:Set06
Copy %1.REF Plan06.REF >Nul
GoTo Done
:Set07
Copy %1.REF Plan07.REF >Nul
GoTo Done
:Set08
Copy %1.REF Plan08.REF >Nul
GoTo Done
:Set09
Copy %1.REF Plan09.REF >Nul
GoTo Done
:Set10
Copy %1.REF Plan10.REF >Nul
:Done
Copy C:\Packages\GanttPac\BookIt.KBG %1.GKB >nul
Gantt2 %1
Erase %1.GKB
Menu %1
:Exit
Pause
Menu %1